home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Text / WASTE / WASTE 1.1.2 Distribution / Demo Source / WEDemoMain.p < prev    next >
Encoding:
Text File  |  1995-10-12  |  385 b   |  27 lines  |  [TEXT/CWIE]
  1. program WEDemoMain;
  2.  
  3. { WASTE DEMO PROJECT: }
  4. { Main Program }
  5.  
  6. { Copyright © 1993-1995 Marco Piovanelli }
  7. { All Rights Reserved }
  8.  
  9.     uses
  10.         WEDemoEvents, WEDemoInit;
  11.  
  12. { THINK Pascal compiler directive: turn off automatic initialization }
  13.  
  14. {$IFC NOT UNDEFINED THINK_PASCAL}
  15. {$I-}
  16. {$ENDC}
  17.  
  18. begin
  19.  
  20.     if (Initialize = noErr) then
  21.         repeat
  22.             ProcessEvent;
  23.         until gExiting;
  24.  
  25.     Finalize;
  26.  
  27. end.